home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / FACTORS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  741b  |  20 lines
  1. 5  HOME : CLEAR 
  2. 10  INPUT "# TO BE FACTORED=";A
  3. 15  PRINT : PRINT "INTEGRAL FACTORS OF "A" ARE": PRINT 
  4. 16 CX =  INT( SQR(A)) +1
  5. 20  FOR X = 2 TO CX
  6. 22 ZZ =  PEEK(49200)
  7. 25 Z = A/X
  8. 30  IF X = CX  AND C = 0  THEN  VTAB 3: PRINT "(";A;" IS A PRIME NUMBER)        "
  9. 35  IF   NOT (Z =  INT(Z))  THEN 50
  10. 40 C = C +1: REM  PRIME TESTER
  11. 45  IF   NOT (X = A)  THEN  POKE 36,10 - LEN( STR$(Z)): PRINT Z;: POKE 36,12: PRINT "X";: POKE 36,14 + LEN( STR$( INT( SQR(A)))) - LEN( STR$(X)): PRINT X
  12. 50  NEXT X
  13. 55  PRINT : PRINT 
  14. 60  PRINT "ANOTHER? (Y/N)"
  15. 65  GET Y$: IF   NOT (Y$ = "Y"  OR Y$ = "N")  THEN 60
  16. 70  IF Y$ = "Y"  THEN 5
  17. 75  PRINT : PRINT  CHR$(4)"RUNMENU"
  18. 80  REM      FRED HALL
  19. 83  REM      16 SUNRISE TERRACE
  20. 85  REM      PLAISTOW NH 03865